home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / asppw112 / dnsquery.asp < prev    next >
Text File  |  1999-01-07  |  2KB  |  43 lines
  1. <HTML><BODY>
  2. <%
  3.     Set oDnsQuery = Server.CreateObject("ASPPW.WhoisQuery")
  4.  
  5.     'oDnsQuery.WhoisServer="rs.internic.net"        'You don't have to specify rs.internic.net, the default value.
  6.     if oDnsQuery.SendQuery("mit.edu") = true then
  7.                 sResp=oDnsQuery.GetResponse         'Please refer to the sample below
  8.         response.write "Response is: <br><pre>"
  9.         response.write sResp
  10.         response.write " </pre><br>Response ended.<br>"
  11.         
  12.         if oDnsQuery.IsRecordFound = false then 
  13.             response.write "No match for this query."
  14.             response.end
  15.         end if
  16.         'Sample for Domain name query
  17.         response.write "<pre>" + oDnsQuery.GetRegistrant + "</pre><br>"               
  18.         response.write "<pre>" + oDnsQuery.GetDomainName + "</pre><br>"
  19.         response.write "<pre>" + oDnsQuery.GetAdministrativeEmail + "</pre><br>"
  20.         response.write "<pre>" + oDnsQuery.GetTechnicalEmail + "</pre><br>"
  21.         response.write "<pre>" + oDnsQuery.GetZoneEmail + "</pre><br>"
  22.         response.write "<pre>" + oDnsQuery.GetbillingEmail + "</pre><br>"
  23.         response.write "<pre>" + oDnsQuery.GetRecordLastUpdateTime + "</pre><br>"
  24.         response.write "<pre>" + oDnsQuery.GetRecordCreateTime + "</pre><br>"
  25.         response.write "<pre>" + oDnsQuery.GetDatabaseLastUpdateTime + "</pre><br>"
  26.         response.write "<pre>" + oDnsQuery.GetDomainServers + "</pre><br>"
  27.         response.write "<pre>" + oDnsQuery.GetAdministrativeContact + "</pre><br>"
  28.         response.write "<pre>" + oDnsQuery.GetTechnicalContact + "</pre><br>"
  29.         response.write "<pre>" + oDnsQuery.GetZoneContact + "</pre><br>"
  30.         response.write "<pre>" + oDnsQuery.GetBillingContact + "</pre><br>"
  31.         
  32.         response.write "If you are quering an ip address:<br>"
  33.         response.write  "<pre>" + oDnsQuery.getHostName  + "</pre><br>"
  34.         response.write  "<pre>" + oDnsQuery.GetCoordinator  + "</pre><br>" 
  35.  
  36.     else 
  37.         response.write oDnsQuery.GetLastErrDescription
  38.     end if
  39.     
  40.     Set oDnsQuery = Nothing
  41.     
  42. %>
  43. </BODY></HTML>